#_________________________________________________________________________________________________________________________________
#_________________________________________________________________________________________________________________________________
#_________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
inherit RelationEditor_PM_U PM_Universal
#___________________________________________________________________________________________________________________________________________
method RelationEditor_PM_U constructor {name descr args} {
 this inherited $name $descr
   this set_nb_max_mothers 1
   this set_cmd_placement {}
 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC RelationEditor_PM_U [L_methodes_set_RelationEditor] {}          {}
Methodes_get_LC RelationEditor_PM_U [L_methodes_get_RelationEditor] {$this(FC)}

